home *** CD-ROM | disk | FTP | other *** search
- 10 LET c=1
- 20 LET tot=0: LET s=23280+c*16
- 30 FOR a=s TO s+15: READ x: POKE a,x: LET tot=tot+x: NEXT a: READ check
- 40 IF tot<>check THEN PRINT "Error in line ";9990+c: STOP
- 50 LET c=c+1
- 60 IF c<9 THEN GOTO 20
- 70 PRINT "Data OK"
- 80 SAVE "midixfer" CODE 23296,115
- 9991 DATA 175,55,221,33,0,94,17,17,0,205,86,5,42,11,94,235,1290
- 9992 DATA 221,33,17,94,62,255,55,205,86,5,62,1,211,95,1,127,1530
- 9993 DATA 0,62,21,237,121,17,17,0,42,11,94,25,235,1,127,1,1011
- 9994 DATA 123,237,121,1,127,2,237,120,203,79,40,250,1,127,1,122,1791
- 9995 DATA 237,121,1,127,2,237,120,203,79,40,250,19,33,0,94,1,1564
- 9996 DATA 127,1,126,237,121,230,7,211,254,1,127,2,237,120,203,79,2083
- 9997 DATA 40,250,35,27,122,179,32,231,1,127,0,62,131,237,121,175,1770
- 9998 DATA 211,95,201,0,0,0,0,0,0,0,0,0,0,0,0,0,507
-